home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / role / BasicImp.lha / BasicImp / Cleanup (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-03-22  |  793b  |  46 lines
  1. ' DMA Character Clean-up Utility
  2.  
  3. ' Removes garbage characters from DMA Vol II Character files
  4. ' for use with BasicImp.
  5. ' Version 1.02 by Zach Forsyth 1992
  6.  
  7. DIM ln$(100)
  8.  
  9. Begin:
  10. CLS
  11. FILES":DMA Characters"
  12. PRINT
  13. INPUT "Character to clean up: ",file$
  14. IF file$ = "" THEN END
  15. IF INSTR(file$,".chr") = 0 THEN file$ = file$ + ".chr"
  16. file$ = UCASE$(file$)
  17. CLS
  18.  
  19. count = 0
  20.  
  21. OPEN ":DMA Characters/"+file$ FOR INPUT AS #1
  22.   WHILE NOT EOF(1)
  23.     count = count + 1
  24.     LOCATE 1,1
  25.     PRINT "Reading line:"count
  26.     LINE INPUT#1,ln$(count)
  27.     PRINT ln$(count);SPACE$(80)
  28.   WEND
  29. CLOSE #1
  30.  
  31. PRINT 
  32.  
  33. OPEN ":DMA Characters/"+file$ FOR OUTPUT AS #1
  34.   FOR a = 1 TO count
  35.     LOCATE 3,1
  36.     PRINT "Writing line:"a
  37.     PRINT ln$(a);SPACE$(80)
  38.     PRINT#1,ln$(a)
  39.   NEXT
  40. CLOSE #1
  41.  
  42. KILL ":DMA Characters/"+file$+".info"
  43.  
  44. GOTO Begin
  45.  
  46.